library(readr)
library(ggplot2)
library("tidyverse")
library("dplyr")
library("plotly")
  1. Importing the Data 1.1. Housing Prices Database
 distinct(filterIR$type)
Error in UseMethod("distinct") : 
  no applicable method for 'distinct' applied to an object of class "character"



p<-filterIR  %>% 
ggplot(aes(x =(round(ref/100)), y = InterestRate, group = type, color = factor(type))) + geom_line()   + ylab("Median of House Values")


plotly::ggplotly(p)
NA
NA
LS0tDQp0aXRsZTogIkhvdXNpbmcgQ3Jpc2lzIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCmBgYHtyfQ0KbGlicmFyeShyZWFkcikNCmxpYnJhcnkoZ2dwbG90MikNCmxpYnJhcnkoInRpZHl2ZXJzZSIpDQpsaWJyYXJ5KCJkcGx5ciIpDQpsaWJyYXJ5KCJwbG90bHkiKQ0KYGBgDQoNCjEuIEltcG9ydGluZyB0aGUgRGF0YQ0KMS4xLiBIb3VzaW5nIFByaWNlcyBEYXRhYmFzZQ0KYGBge3J9DQoNCg0KaW50ZXJlc3RfcmF0ZSA8LSByZWFkX2NzdigiRDovRGF0YVNjaWVuY2VNQkEvVENDL0RhdGFiYXNlL0ZJTTA5LjIwMjIwODE5MTIzMTQ1LmNzdiIsIHNob3dfY29sX3R5cGVzID0gRkFMU0UpDQp2aWV3KGludGVyZXN0X3JhdGUpDQoNCm5hbWVzKGludGVyZXN0X3JhdGUpDQpmaWx0ZXJJUiA8LSBpbnRlcmVzdF9yYXRlICU+JSB0cmFuc211dGUoYEludGVyZXN0IFJhdGVgLGBUTElTVChNMSlgLFZBTFVFKQ0KZmlsdGVySVINCm5ld19uYW1lcyA8LSBjKCJ0eXBlIiwicmVmIiwiSW50ZXJlc3RSYXRlIikNCg0KbmFtZXMoZmlsdGVySVIpIDwtIG5ld19uYW1lcw0KDQpncm91cF9pbnQgPC0gZmlsdGVySVIgJT4lIGdyb3VwX2J5KHR5cGUpDQoNCg0KYGBgDQpgYGB7cn0NCg0KDQoNCnA8LWZpbHRlcklSICAlPiUgDQpnZ3Bsb3QoYWVzKHggPShyb3VuZChyZWYvMTAwKSksIHkgPSBJbnRlcmVzdFJhdGUsIGdyb3VwID0gdHlwZSwgY29sb3IgPSBmYWN0b3IodHlwZSkpKSArIGdlb21fbGluZSgpICAgKyB5bGFiKCJJbnRlcmVzdCBSYXRlIikNCg0KDQpwbG90bHk6OmdncGxvdGx5KHApDQoNCg0KYGBgDQo=